sHelp
                                     MRI.DRC
     i   2
 ccdqr
   ccdqr.multiple
 ccdqr.audit
   ccdqr.audit.mult
 hub.queue.entries
 hub.queue.fail
 main
   allergies
   can.alerts
   conditions
   contacts
   customer.defined.queries
     cust.def.query.mult
   duty.contacts
   emp.info.data
   environmental.factors
   families
   forensic.charges
   forensic.comments
   forensic.restrict
   guard.contacts
   guardian.types
     guardian.med.treat
       guard.med.treat.text
   insurances
     ins.cd.queries
       ins.cd.queries.mult
     ins.queries
   insure.order
   insure.order.old
   oth.agency.contacts
   other.agencies
   phys.handicaps
   probation.comments
   restraining.order
 nsc.data
 sch.appts
 web.activity.queue
 web.form.req
   web.form.req.ins.data
   web.form.req.other.data

 Ì     i   2
ccdqr
[ccdqr.patient,ccdqr.query]
*(E2)AA.CCDQR[ea,ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ccdqr.patient               25 URN      L  MRI.PAT        ea                                                      
 ccdqr.query                 10 FREE     L  MIS.QUERY      ggv                                                     
 ccdqr.ctr                    5 PINT     R                 *(E2)AA.CCDQR[ea,ggv]|3                                     
 ccdqr.date                   8 DATE     L                 *(E2)AA.CCDQR[ea,ggv]|1                                     
 ccdqr.response              30 QRY.RESP L                 *(E2)AA.CCDQR[ea,ggv]|0                                     
 ccdqr.time                   4 HHMM     L                 *(E2)AA.CCDQR[ea,ggv]|2                                     
 ccdqr.yn.comment            70 QRY.RESP L                 *(E2)AA.CCDQR[ea,ggv]|5                                     
 Ì   €   i   2
ccdqr.multiple
[ccdqr.patient,ccdqr.query,  ccdqr.mul.q]
*(E2)AA.CCDQR[ea,ggv]M[eaccq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ccdqr.mul.q                  2 PINT     R                 eaccq                                                       
 ccdqr.mul.ctr                5 PINT     R                 *(E2)AA.CCDQR[ea,ggv]M[eaccq]|3                             
 ccdqr.mul.date               8 DATE     L                 *(E2)AA.CCDQR[ea,ggv]M[eaccq]|1                             
 ccdqr.mul.response          30 FREE     L                 *(E2)AA.CCDQR[ea,ggv]M[eaccq]|0                             
 ccdqr.mul.time               4 HHMM     L                 *(E2)AA.CCDQR[ea,ggv]M[eaccq]|2                             
 Ì     i   2
ccdqr.audit
[ca.urn,ca.query,ca.date,ca.time,ca.ctr]
*(E2)AA.CCDQR.AUDIT[ea,ggv,caD,caT,caCNT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ca.urn                      25 URN      L  MRI.PAT        ea                                                      
 ca.query                    10 FREE     L  MIS.QUERY      ggv                                                     
 ca.date                      8 DATE     L                 caD                                                         
 ca.time                      4 TIME     L                 caT                                                         
 ca.ctr                       5 PINT     R                 caCNT                                                       
 ca.act.type                  1 FREE     L                 *(E2)AA.CCDQR.AUDIT[ea,ggv,caD,caT,caCNT]|4                 
 ca.adm.urn                  30 URN      L  ADM.PAT        *(E2)AA.CCDQR.AUDIT[ea,ggv,caD,caT,caCNT]|3             
 ca.machine                  10 FREE     L  UNV.DEVICE     *(E2)AA.CCDQR.AUDIT[ea,ggv,caD,caT,caCNT]|2             
 ca.user                     10 FREE     L  UNV.USER       *(E2)AA.CCDQR.AUDIT[ea,ggv,caD,caT,caCNT]|1             
 ca.value                   100 QRY.RESP L                 *(E2)AA.CCDQR.AUDIT[ea,ggv,caD,caT,caCNT]|0                 
 ca.yn.comment               70 QRY.RESP L                 *(E2)AA.CCDQR.AUDIT[ea,ggv,caD,caT,caCNT]|5                 
 Ì   €   i   2
ccdqr.audit.mult
[ca.urn,ca.query,ca.date,ca.time,ca.ctr,  ca.mult.queue]
*(E2)AA.CCDQR.AUDIT[ea,ggv,caD,caT,caCNT]M[caMQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ca.mult.queue                2 PINT     R                 caMQ                                                        
 ca.mult.activity             1 FREE     L                 *(E2)AA.CCDQR.AUDIT[ea,ggv,caD,caT,caCNT]M[caMQ]|1          
 ca.mult.value               30 FREE     L                 *(E2)AA.CCDQR.AUDIT[ea,ggv,caD,caT,caCNT]M[caMQ]|0          
 Ì     i   2
hub.queue.entries
[hub.id]
*(E2)DRQ[ha]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 hub.id                      20 FREE     L                 ha                                                          
 mult.time                   10 PINT     R                 *(E2)DRQ[ha]|1                                              
 quick.time                  10 PINT     R                 *(E2)DRQ[ha]|0                                              
 recall.time                 10 PINT     R                 *(E2)DRQ[ha]|2                                              
 sent.mult                   10 PINT     R                 *(E2)DRQ[ha]SENT|1                                          
 sent.quick                  10 PINT     R                 *(E2)DRQ[ha]SENT|0                                          
 sent.recall                 10 PINT     R                 *(E2)DRQ[ha]SENT|2                                          
 time                        10 FREE     L                                                                             
 Ì     i   2
hub.queue.fail
[fq.hub.id]
*(E2)DRQF[ha]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 fq.hub.id                   15 FREE     L                 ha                                                          
 fq.retry.ct                  3 PINT     R                 *(E2)DRQF[ha]|2                                             
 fq.time.initial             10 PINT     R                 *(E2)DRQF[ha]|0                                             
 fq.time.last                10 PINT     R                 *(E2)DRQF[ha]|1                                             
 Ì   €   i   2
main
[medical.record]
$(E2)AA[ea]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 medical.record               8 URN      L                 ea                                                          
 active                       1 YN       L                 VAL=@MRI.PAT.active                                         
 affiliation                 30 FREE     L                 $(E2)AA[ea]A|1                                              
 age                          7 AGE      R                 VAL=@MRI.PAT.age                                            
 age.group                    2 FREE     L                 $(E2)AA[ea]CND|5                                            
 alert.1                     15 FREE     L                 $(E2)AA[ea]CNR[1]                                           
 alert.2                     15 FREE     L                 $(E2)AA[ea]CNR[2]                                           
 alias                       30 FREE     L                 $(E2)AA[ea]DM|0                                             
 allergy.1                   15 FREE     L                 $(E2)AA[ea]ALG[1]                                           
 allergy.2                   15 FREE     L                 $(E2)AA[ea]ALG[2]                                           
 allergy.3                   15 FREE     L                 $(E2)AA[ea]ALG[3]                                           
 allergy.4                   15 FREE     L                 $(E2)AA[ea]ALG[4]                                           
 area                        10 FREE     L  MIS.AREA       $(E2)AA[ea]DM|15                                        
 bad.debt                     1 YN       L                 VAL=@MRI.PAT.bad.debt                                       
 birthdate                   10 BDATE    L                 VAL=@MRI.PAT.birthdate                                      
 case.mgr                    10 FREE     L  MIS.DOC        $(E2)AA[ea]DM|1                                         
 case.mgr.name               30 FREE     L                 VAL=@MIS.DOC.name[@MRI.DRC.case.mgr]                        
 cg.city                     20 FREE     L                 $(E2)AA[ea]CG|3                                             
 cg.home.phone               18 PHONE    L                 $(E2)AA[ea]CG|6                                             
 cg.name                     30 FREE     L                 $(E2)AA[ea]CG|0                                             
 cg.relationship             10 FREE     L  MIS.RELAT      $(E2)AA[ea]CG|8                                         
 cg.state                     2 FREE     L                 $(E2)AA[ea]CG|4                                             
 cg.street                   30 FREE     L                 $(E2)AA[ea]CG|1                                             
 cg.street2                  30 FREE     L                 $(E2)AA[ea]CG|2                                             
 cg.work.phone               18 PHONE    L                 $(E2)AA[ea]CG|7                                             
 cg.zip                      10 ZIP.POST L                 $(E2)AA[ea]CG|5                                             
 computed.birthdate          10 BDATE    L                                                                             
 cont1.city                  30 FREE     L                 $(E2)AA[ea]C1|2                                             
 cont1.email                 40 FREE     L                 $(E2)AA[ea]C1|9                                             
 cont1.fax                   24 FREE     L                 $(E2)AA[ea]C1|11                                            
 cont1.home.ph               18 PHONE    L                 $(E2)AA[ea]C1|5                                             
 cont1.lar                    1 YN       L                 $(E2)AA[ea]C1|8                                             
 cont1.name                  30 FREE     L                 $(E2)AA[ea]C1|0                                             
 cont1.name.display          30 FREE     L                 $(E2)AA[ea]C1|0                                             
 cont1.pager                  8 FREE     L                 $(E2)AA[ea]C1|10                                            
 cont1.rel                   10 FREE     L  MIS.RELAT      $(E2)AA[ea]C1|7                                         
 cont1.st.display            30 FREE     L                 $(E2)AA[ea]C1|1                                             
 cont1.state                  2 FREE     L                 $(E2)AA[ea]C1|3                                             
 cont1.street                30 FREE     L                 $(E2)AA[ea]C1|1                                             
 cont1.work.ph               18 PHONE    L                 $(E2)AA[ea]C1|6                                             
 cont1.zip                   10 ZIP.POST L                 $(E2)AA[ea]C1|4                                             
 cont2.city                  30 FREE     L                 $(E2)AA[ea]C2|2                                             
 cont2.email                 40 FREE     L                 $(E2)AA[ea]C2|9                                             
 cont2.fax                   24 FREE     L                 $(E2)AA[ea]C2|11                                            
 cont2.home.ph               18 PHONE    L                 $(E2)AA[ea]C2|5                                             
 cont2.lar                    1 YN       L                 $(E2)AA[ea]C2|8                                             
 cont2.name                  30 FREE     L                 $(E2)AA[ea]C2|0                                             
 cont2.name.display          30 FREE     L                 $(E2)AA[ea]C2|0                                             
 cont2.pager                  8 FREE     L                 $(E2)AA[ea]C2|10                                            
 cont2.rel                   10 FREE     L  MIS.RELAT      $(E2)AA[ea]C2|7                                         
 cont2.st.display            30 FREE     L                 $(E2)AA[ea]C2|1                                             
 cont2.state                  2 FREE     L                 $(E2)AA[ea]C2|3                                             
 cont2.street                30 FREE     L                 $(E2)AA[ea]C2|1                                             
 cont2.work.ph               18 PHONE    L                 $(E2)AA[ea]C2|6                                             
 cont2.zip                   10 ZIP.POST L                 $(E2)AA[ea]C2|4                                             
 criminal.rec.date            8 DATE     L                 $(E2)AA[ea]CR|1                                             
 criminal.req.date            8 DATE     L                 $(E2)AA[ea]CR|0                                             
 current.age                  7 FREE     L                 VAL=%Z.age(@MRI.PAT.computed.birthdate)                     
 custody                     10 FREE     L  MIS.CUSTODY    $(E2)AA[ea]DM|16                                        
 demo.recall.date             8 DATE     L                 VAL=@MRI.PAT.demo.recall.date                               
 dep                          1 YN       L                 $(E2)AA[ea]DM|10                                            
 dep.num                      2 PINT     R                 $(E2)AA[ea]DM|11                                            
 discharge.disposition       10 FREE     L  MIS.DIS        VAL=(@MRI.PAT.discharge.disposition)                    
 do.not.use                  10 FREE     L                 $(E2)AA[ea]DR|4                                             
 edit.or.switch.guar.num      1 CHOICE   L                 $(E2)AA[ea]A|8                                              
 education                   10 FREE     L  MIS.EDUCATION  $(E2)AA[ea]DM|6                                         
 emp.addr.phone.out         125 FREE     L                 VAL=(@pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5      
                                                           VAL=_" "_AD|6_" "_AD|7'=",,  ")                             
 emp.address.out            106 FREE     L                 VAL=(@pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5      
                                                           VAL=_" "_AD|6'=",, ")                                       
 emp.city                    30 FREE     L                 $(E2)AA[ea]E|4                                              
 emp.city.state.zip.o        44 FREE     L                 VAL=(@pt.emp^AD#4P_","_AD|5_" "_AD|6'=", ")                 
 emp.name.out                30 FREE     L                 VAL=IF{@MIS.EMPLR.name[@employer];@employer}                
 emp.phone                   18 PHONE    L                 $(E2)AA[ea]E|7                                              
 emp.state                    2 FREE     L                 $(E2)AA[ea]E|5                                              
 emp.street                  30 FREE     L                 $(E2)AA[ea]E|2                                              
 emp.street2                 30 FREE     L                 $(E2)AA[ea]E|3                                              
 emp.streets.out             61 FREE     L                 VAL=(@pt.emp^AD#2P_" "_AD|3'=" ")                           
 emp.zip                     10 ZIP.POST L                 $(E2)AA[ea]E|6                                              
 empl.status                 10 FREE     L  MIS.EMP.STATUS $(E2)AA[ea]DM|13                                        
 employer                    10 FREE     L  MIS.EMPLR      $(E2)AA[ea]E|0                                          
 ethnicity                   10 FREE     L  MIS.ETHNICITY  $(E2)AA[ea]DM|14                                        
 fam1.city                   30 FREE     L                 $(E2)AA[ea]F1|2                                             
 fam1.email                  40 FREE     L                 $(E2)AA[ea]F1|9                                             
 fam1.fax                    24 FREE     L                 $(E2)AA[ea]F1|10                                            
 fam1.home.ph                18 PHONE    L                 $(E2)AA[ea]F1|5                                             
 fam1.name                   30 FREE     L                 $(E2)AA[ea]F1|0                                             
 fam1.pager                   8 FREE     L                 $(E2)AA[ea]F1|8                                             
 fam1.rel                    10 FREE     L  MIS.RELAT      $(E2)AA[ea]F1|7                                         
 fam1.state                   2 FREE     L                 $(E2)AA[ea]F1|3                                             
 fam1.street                 30 FREE     L                 $(E2)AA[ea]F1|1                                             
 fam1.work.ph                18 PHONE    L                 $(E2)AA[ea]F1|6                                             
 fam1.zip                    10 ZIP.POST L                 $(E2)AA[ea]F1|4                                             
 fam2.city                   30 FREE     L                 $(E2)AA[ea]F2|2                                             
 fam2.email                  40 FREE     L                 $(E2)AA[ea]F2|9                                             
 fam2.fax                    24 FREE     L                 $(E2)AA[ea]F2|10                                            
 fam2.home.ph                18 PHONE    L                 $(E2)AA[ea]F2|5                                             
 fam2.name                   30 FREE     L                 $(E2)AA[ea]F2|0                                             
 fam2.pager                   8 FREE     L                 $(E2)AA[ea]F2|8                                             
 fam2.rel                    10 FREE     L  MIS.RELAT      $(E2)AA[ea]F2|7                                         
 fam2.state                   2 FREE     L                 $(E2)AA[ea]F2|3                                             
 fam2.street                 30 FREE     L                 $(E2)AA[ea]F2|1                                             
 fam2.work.ph                18 PHONE    L                 $(E2)AA[ea]F2|6                                             
 fam2.zip                    10 ZIP.POST L                 $(E2)AA[ea]F2|4                                             
 fam3.city                   30 FREE     L                 $(E2)AA[ea]F3|2                                             
 fam3.email                  40 FREE     L                 $(E2)AA[ea]F3|9                                             
 fam3.fax                    24 FREE     L                 $(E2)AA[ea]F3|10                                            
 fam3.home.ph                18 PHONE    L                 $(E2)AA[ea]F3|5                                             
 fam3.name                   30 FREE     L                 $(E2)AA[ea]F3|0                                             
 fam3.pager                   8 FREE     L                 $(E2)AA[ea]F3|8                                             
 fam3.rel                    10 FREE     L  MIS.RELAT      $(E2)AA[ea]F3|7                                         
 fam3.state                   2 FREE     L                 $(E2)AA[ea]F3|3                                             
 fam3.street                 30 FREE     L                 $(E2)AA[ea]F3|1                                             
 fam3.work.ph                18 PHONE    L                 $(E2)AA[ea]F3|6                                             
 fam3.zip                    10 ZIP.POST L                 $(E2)AA[ea]F3|4                                             
 fam4.city                   30 FREE     L                 $(E2)AA[ea]F4|2                                             
 fam4.email                  40 FREE     L                 $(E2)AA[ea]F4|9                                             
 fam4.fax                    24 FREE     L                 $(E2)AA[ea]F4|10                                            
 fam4.home.ph                18 PHONE    L                 $(E2)AA[ea]F4|5                                             
 fam4.name                   30 FREE     L                 $(E2)AA[ea]F4|0                                             
 fam4.pager                   8 FREE     L                 $(E2)AA[ea]F4|8                                             
 fam4.rel                    10 FREE     L  MIS.RELAT      $(E2)AA[ea]F4|7                                         
 fam4.state                   2 FREE     L                 $(E2)AA[ea]F4|3                                             
 fam4.street                 30 FREE     L                 $(E2)AA[ea]F4|1                                             
 fam4.work.ph                18 PHONE    L                 $(E2)AA[ea]F4|6                                             
 fam4.zip                    10 ZIP.POST L                 $(E2)AA[ea]F4|4                                             
 family.doctor               10 FREE     L  MIS.DOC        $(E2)AA[ea]DR|3                                         
 family.doctor.name          30 FREE     L                 VAL=@MIS.DOC.name[@MRI.DRC.family.doctor]                   
 fiduciary.adr1              30 FREE     L                 $(E2)AA[ea]FI|1                                             
 fiduciary.adr2              30 FREE     L                 $(E2)AA[ea]FI|2                                             
 fiduciary.beeper            18 PHONE    L                 $(E2)AA[ea]FI|8                                             
 fiduciary.bus.ph            18 PHONE    L                 $(E2)AA[ea]FI|7                                             
 fiduciary.city              20 FREE     L                 $(E2)AA[ea]FI|3                                             
 fiduciary.email             40 FREE     L                 $(E2)AA[ea]FI|10                                            
 fiduciary.fax               18 PHONE    L                 $(E2)AA[ea]FI|9                                             
 fiduciary.home.ph           18 PHONE    L                 $(E2)AA[ea]FI|6                                             
 fiduciary.last.upd           9 DATE     L                 $(E2)AA[ea]FI|9                                             
 fiduciary.last.usr          10 FREE     L  MIS.USER       $(E2)AA[ea]FI|10                                        
 fiduciary.name              30 NAME     L                 $(E2)AA[ea]FI|0                                             
 fiduciary.rel               10 FREE     L  MIS.RELAT      $(E2)AA[ea]FI|8                                         
 fiduciary.state              2 FREE     L                 $(E2)AA[ea]FI|4                                             
 fiduciary.zip               10 ZIP.POST L                 $(E2)AA[ea]FI|5                                             
 financial.class             10 FREE     L  MIS.FIN.CLASS  $(E2)AA[ea]A|3                                          
 first.name                  25 FREE     L                                                                             
 folder.create.date           8 DATE     L                 VAL=@MRI.PAT.folder.create.date                             
 for.criminal.court          10 FREE     L  MIS.COURT      $(E2)AA[ea]FR|0                                         
 for.crt.restrict             1 YN       L                 $(E2)AA[ea]FR|2                                             
 for.ee.comments              1 YN       L                 $(E2)AA[ea]FR|4                                             
 for.ee.prob.comms            1 YN       L                 $(E2)AA[ea]FR|5                                             
 for.rev.mand                 1 YN       L                 $(E2)AA[ea]FR|3                                             
 for.xfer.facility           10 FREE     L  MIS.TRANS.FAC  $(E2)AA[ea]FR|1                                         
 guar.addr.phone.out        115 FREE     L                 VAL=(@guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5_"      
                                                           VAL= "_AD|6_" "_AD|7'=",,  ")                               
 guar.address.out            96 FREE     L                 VAL=(@guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5_"      
                                                           VAL= "_AD|6'=",, ")                                         
 guar.city                   20 FREE     L                 $(E2)AA[ea]G|4                                              
 guar.city.state.zip.o       34 FREE     L                 VAL=(@guar^AD#4P_","_AD|5_" "_AD|6'=", ")                   
 guar.email                  40 FREE     L                 $(E2)AA[ea]G|9                                              
 guar.email.use               1 YN       L                 $(E2)AA[ea]G|10                                             
 guar.emp.addr.phone.out    125 FREE     L                 VAL=(@guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD      
                                                           VAL=|5_" "_AD|6_" "_AD|7'=",,  ")                           
 guar.emp.address.out       106 FREE     L                 VAL=(@guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD      
                                                           VAL=|5_" "_AD|6'=",, ")                                     
 guar.emp.city               30 FREE     L                 $(E2)AA[ea]GE|4                                             
 guar.emp.city.state.zip.o   44 FREE     L                 VAL=(@guar.emp^AD#4P_","_AD|5_" "_AD|6'=", ")               
 guar.emp.name.out           30 FREE     L                 VAL=IF{@MIS.EMPLR.name[@guar.employer];@guar.employer}      
 guar.emp.phone              18 PHONE    L                 $(E2)AA[ea]GE|7                                             
 guar.emp.state               2 FREE     L                 $(E2)AA[ea]GE|5                                             
 guar.emp.street             30 FREE     L                 $(E2)AA[ea]GE|2                                             
 guar.emp.street2            30 FREE     L                 $(E2)AA[ea]GE|3                                             
 guar.emp.streets.out        61 FREE     L                 VAL=(@guar.emp.street_" "_@guar.emp.street2'=" ")           
 guar.emp.zip                10 ZIP.POST L                 $(E2)AA[ea]GE|6                                             
 guar.employer               10 FREE     L  MIS.EMPLR      $(E2)AA[ea]GE|0                                         
 guar.home.phone             18 PHONE    L                 $(E2)AA[ea]G|7                                              
 guar.name                   30 FREE     L                 $(E2)AA[ea]G|0                                              
 guar.name.display.only      30 FREE     L                 $(E2)AA[ea]G|0                                              
 guar.number                 15 FREE     L                 $(E2)AA[ea]G|8                                              
 guar.occupation             20 FREE     L                 $(E2)AA[ea]GE|1                                             
 guar.pt.relationship        10 FREE     L  MIS.RELAT      $(E2)AA[ea]G|1                                          
 guar.soc.sec.number         12 FREE     L                 $(E2)AA[ea]G|8                                              
 guar.state                   2 FREE     L                 $(E2)AA[ea]G|5                                              
 guar.street                 30 FREE     L                 $(E2)AA[ea]G|2                                              
 guar.street2                30 FREE     L                 $(E2)AA[ea]G|3                                              
 guar.streets.out            61 FREE     L                 VAL=(@guar.street_" "_@guar.street2'=" ")                   
 guar.zip                    10 ZIP.POST L                 $(E2)AA[ea]G|6                                              
 guard.contact                1 YN       L                 $(E2)AA[ea]GU|0                                             
 hc.subscriber.inits          3 FREE     L                 $(E2)AA[ea]CND|2                                            
 hc.subscriber.relation      10 FREE     L  MIS.RELAT      $(E2)AA[ea]CND|3                                        
 health.care.number          14 FREE     L                 $(E2)AA[ea]CND|1                                            
 hhc.interpreter             10 FREE     L  MIS.RELAT      $(E2)AA[ea]HHC|7                                        
 hhc.language                10 FREE     L  MIS.LANGUAGE   $(E2)AA[ea]HHC|6                                        
 in.school                    1 YN       L                 $(E2)AA[ea]DM|7                                             
 ins.addr.phone.out          85 FREE     L                 VAL=(IF{"Y"'=@MIS.INS.other.type @MIS.INS.main^AD#2P_"      
                                                           VAL=,"_AD|3_","_AD|4_" "_AD|5_" "_AD|6;@insurances^AD#      
                                                           VAL=0P_","_AD|1_","_AD|2_" "_AD|3_" "_AD|4}'=",,  ")        
 ins.address.out             65 FREE     L                 VAL=(IF{"Y"'=@MIS.INS.other.type @MIS.INS.main^AD#2P_"      
                                                           VAL=,"_AD|3_","_AD|4_" "_AD|5;@insurances^AD#0P_","_AD      
                                                           VAL=|1_","_AD|2_" "_AD|3}'=",, ")                           
 ins.city.out                20 FREE     L                 VAL=IF{@insurance.city;@MIS.INS.city}                       
 ins.mnemonic.1              10 FREE     L                 VAL=@insurance.mnemonic[1]^insurance                        
 ins.mnemonic.2              10 FREE     L                 VAL=@insurance.mnemonic[2]^insurance                        
 ins.mnemonic.3              10 FREE     L                 VAL=@insurance.mnemonic[3]^insurance                        
 ins.mnemonic.4              10 FREE     L                 VAL=@insurance.mnemonic[4]^insurance                        
 ins.name.out                30 FREE     L                 VAL=IF{@MIS.INS.other.type="Y" @insurance.other.name;@      
                                                           VAL=MIS.INS.name}                                           
 ins.name.out.1              30 FREE     L                 VAL=IF{@MRI.DRC.ins.mnemonic.1 @ins.name.out}               
 ins.name.out.2              30 FREE     L                 VAL=IF{@MRI.DRC.ins.mnemonic.2 @ins.name.out}               
 ins.name.out.3              30 FREE     L                 VAL=IF{@MRI.DRC.ins.mnemonic.3 @ins.name.out}               
 ins.name.out.4              30 FREE     L                 VAL=IF{@MRI.DRC.ins.mnemonic.4 @ins.name.out}               
 ins.number.1                 1 INT      R                 VAL=1                                                       
 ins.number.2                 1 INT      R                 VAL=2                                                       
 ins.number.3                 1 INT      R                 VAL=3                                                       
 ins.number.4                 1 INT      R                 VAL=4                                                       
 ins.phone.out               18 PHONE    L                 VAL=IF{@insurance.phone;@MIS.INS.phone}                     
 ins.state.out                2 FREE     L                 VAL=IF{@insurance.state;@MIS.INS.state}                     
 ins.street.out              30 FREE     L                 VAL=IF{@insurance.street;@MIS.INS.address}                  
 ins.zip.out                 10 FREE     L                 VAL=IF{@insurance.zip;@MIS.INS.zip}                         
 interp                       1 CHOICE   L                 $(E2)AA[ea]DM|5                                             
 language                    10 FREE     L  MIS.CAN.LANG   $(E2)AA[ea]CND|0                                        
 last.activity.date           8 DATE     L                 VAL=@MRI.PAT.last.activity.date                             
 last.name                   25 FREE     L                                                                             
 liv.arr                     10 FREE     L  MIS.LIV.ARR    $(E2)AA[ea]DM|3                                         
 marital.status              10 FREE     L  MIS.MAR.STATUS $(E2)AA[ea]A|4                                          
 more.on.microfilm            1 YN       L                 VAL=@MRI.PAT.more.on.micro.film                             
 name                        30 NAME     L                 VAL=@MRI.PAT.name                                           
 no.unit.number               1 YN       L                 VAL=IF{c.yn'="N"'="n"!(c.yn'="Y"'="y"&@unit.number) "Y      
                                                           VAL="}                                                      
 nok.addr.phone.out         138 FREE     L                 VAL=(@next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_","      
                                                           VAL=_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD|7 " B:"_A      
                                                           VAL=D|7}'=",, ")                                            
 nok.address.out             96 FREE     L                 VAL=(@next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_","      
                                                           VAL=_AD|4_" "_AD|5'=",, ")                                  
 nok.city                    20 FREE     L                 $(E2)AA[ea]NK|3                                             
 nok.city.state.zip.o        34 FREE     L                 VAL=(@next.of.kin^AD#3P_","_AD|4_" "_AD|5'=", ")            
 nok.home.phone              18 PHONE    L                 $(E2)AA[ea]NK|6                                             
 nok.name                    30 FREE     L                 $(E2)AA[ea]NK|0                                             
 nok.relationship            10 FREE     L  MIS.RELAT      $(E2)AA[ea]NK|8                                         
 nok.state                    2 FREE     L                 $(E2)AA[ea]NK|4                                             
 nok.street                  30 FREE     L                 $(E2)AA[ea]NK|1                                             
 nok.street2                 30 FREE     L                 $(E2)AA[ea]NK|2                                             
 nok.streets.out             61 FREE     L                 VAL=(@nok.street_" "_@nok.street2'=" ")                     
 nok.work.phone              18 PHONE    L                 $(E2)AA[ea]NK|7                                             
 nok.zip                     10 ZIP.POST L                 $(E2)AA[ea]NK|5                                             
 notify.addr.phone.out      138 FREE     L                 VAL=(@per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_"      
                                                           VAL=,"_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD|7 " B:"      
                                                           VAL=_AD|7}'=",, ")                                          
 notify.address.out          96 FREE     L                 VAL=(@per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_"      
                                                           VAL=,"_AD|4_" "_AD|5'=",, ")                                
 notify.city                 20 FREE     L                 $(E2)AA[ea]PN|3                                             
 notify.city.state.zip.o     34 FREE     L                 VAL=(@per.to.notify^AD#3P_","_AD|4_" "_AD|5'=", ")          
 notify.home.phone           18 PHONE    L                 $(E2)AA[ea]PN|6                                             
 notify.name                 30 FREE     L                 $(E2)AA[ea]PN|0                                             
 notify.relationship         10 FREE     L  MIS.RELAT      $(E2)AA[ea]PN|8                                         
 notify.state                 2 FREE     L                 $(E2)AA[ea]PN|4                                             
 notify.street               30 FREE     L                 $(E2)AA[ea]PN|1                                             
 notify.street2              30 FREE     L                 $(E2)AA[ea]PN|2                                             
 notify.streets.out          61 FREE     L                 VAL=(@notify.street_" "_@notify.street2'=" ")               
 notify.work.phone           18 PHONE    L                 $(E2)AA[ea]PN|7                                             
 notify.zip                  10 ZIP.POST L                 $(E2)AA[ea]PN|5                                             
 occupation                  20 FREE     L                 $(E2)AA[ea]E|1                                              
 pat.city                    20 FREE     L                 $(E2)AA[ea]AD|2                                             
 pat.email                   40 FREE     L                 $(E2)AA[ea]AD|6                                             
 pat.email.use                1 YN       L                 $(E2)AA[ea]AD|7                                             
 pat.home.phone              18 PHONE    L                 $(E2)AA[ea]AD|5                                             
 pat.other.phone             18 PHONE    L                 $(E2)AA[ea]AD|8                                             
 pat.state                    2 FREE     L                 $(E2)AA[ea]AD|3                                             
 pat.street                  30 FREE     L                 $(E2)AA[ea]AD|0                                             
 pat.street2                 30 FREE     L                 $(E2)AA[ea]AD|1                                             
 pat.zip                     10 ZIP.POST L                 $(E2)AA[ea]AD|4                                             
 patient.address.out         96 FREE     L                 VAL=(@MRI.DRC.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2      
                                                           VAL=_","_AD|3_" "_AD|4'=",, ")                              
 patient.address.phone.out  115 FREE     L                 VAL=(@pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2_","_AD|      
                                                           VAL=3_" "_AD|4_" "_AD|5'=",,  ")                            
 patient.city.state.zip.o    34 FREE     L                 VAL=(@pt.addr^AD#2P_","_AD|3_" "_AD|4'=", ")                
 patient.streets.out         61 FREE     L                 VAL=(@pat.street_" "_@pat.street2'=" ")                     
 pref.lang                   10 FREE     L  MIS.CAN.LANG   $(E2)AA[ea]DM|4                                         
 prim.care.doctor            10 FREE     L  MIS.DOC        $(E2)AA[ea]DR|5                                         
 prim.care.doctor.name       30 FREE     L                 VAL=@MIS.DOC.name[@MRI.DRC.prim.care.doctor]                
 prob.par.exp.date            8 DATE     L                 $(E2)AA[ea]PR|1                                             
 probation.parole             1 YN       L                 $(E2)AA[ea]PR|0                                             
 race                        10 FREE     L  MIS.RACE       $(E2)AA[ea]A|5                                          
 record.locator              20 FREE     L                 VAL=@MRI.PAT.record.locator                                 
 reg.vot                      1 YN       L                 $(E2)AA[ea]DM|12                                            
 religion                    10 FREE     L                 $(E2)AA[ea]A|0                                              
 residence.code              10 FREE     L                 $(E2)AA[ea]CND|4                                            
 restrain.ord.exist           1 YN       L                 $(E2)AA[ea]RX|0                                             
 restrict.dir.discl           8 CHOICE   L                 $(E2)AA[ea]A|11                                             
 serv.city                   20 FREE     L                 $(E2)AA[ea]SA|3                                             
 serv.county                 10 FREE     L                 $(E2)AA[ea]SA|7                                             
 serv.home.phone             18 PHONE    L                 $(E2)AA[ea]SA|6                                             
 serv.msa.code                4 FREE     L                 $(E2)AA[ea]SA|8                                             
 serv.state                   2 FREE     L                 $(E2)AA[ea]SA|4                                             
 serv.street                 30 FREE     L                 $(E2)AA[ea]SA|1                                             
 serv.street2                30 FREE     L                 $(E2)AA[ea]SA|2                                             
 serv.zip                    10 ZIP.POST L                 $(E2)AA[ea]SA|5                                             
 sex                          1 CHOICE   L                 VAL=@MRI.PAT.sex                                            
 sex.offend.rec.date          8 DATE     L                 $(E2)AA[ea]SO|1                                             
 sex.offend.req.date          8 DATE     L                 $(E2)AA[ea]SO|0                                             
 site                        10 FREE     L  MIS.SITE       $(E2)AA[ea]DM|17                                        
 smoke.object.neither        10 CHOICE   L                 $(E2)AA[ea]A|6                                              
 soc.sec.number              12 FREE     L                 $(E2)AA[ea]A|2                                              
 soc.work.name               30 FREE     L                 VAL=@UNV.USER.name[@MRI.DRC.social.worker]                  
 social.worker               10 FREE     L  UNV.USER       $(E2)AA[ea]DM|2                                         
 special.pgm.indicator       10 FREE     L  MIS.SPEC.PROG  $(E2)AA[ea]A|7                                          
 unit.number                 10 FREE     L                 VAL=@MRI.PAT.unit.number                                    
 us                           1 YN       L                 $(E2)AA[ea]DM|8                                             
 vet.status                  10 FREE     L  MIS.VET.STATUS $(E2)AA[ea]DM|9                                         
 vip                          1 YN       L                 $(E2)AA[ea]A|9                                              
 vip.comment                 50 FREE     L                 $(E2)AA[ea]A|10                                             
 Ì   €   i   2
allergies
[medical.record,  allergy.num]
$(E2)AA[ea]ALG[aal]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 allergy.num                  1 PINT     R                 aal                                                         
 allergy                     15 FREE     L                 $(E2)AA[ea]ALG[aal]                                         
 Ì   €   i   2
can.alerts
[medical.record,  alert.num]
$(E2)AA[ea]CNR[aar]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 alert.num                    1 PINT     R                 aar                                                         
 alert                       15 FREE     L                 $(E2)AA[ea]CNR[aar]                                         
 Ì   €   i   2
conditions
[medical.record,  cond.seq.no]
$(E2)AA[ea]C[aaCN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cond.seq.no                  1 PINT     R                 aaCN                                                        
 condition                   10 FREE     L  MIS.COND       $(E2)AA[ea]C[aaCN]|0                                    
 Ì   €   i   2
contacts
[medical.record,  contact.name]
$(E2)AA[ea]CT[eacN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 contact.name                30 NAME     L                 eacN                                                        
 contact.active               1 YN       L                 $(E2)AA[ea]CT[eacN]|0                                       
 contact.city                30 FREE     L                 $(E2)AA[ea]CT[eacN]|2                                       
 contact.email               40 FREE     L                 $(E2)AA[ea]CT[eacN]|9                                       
 contact.fax                 24 FREE     L                 $(E2)AA[ea]CT[eacN]|11                                      
 contact.home.phone          18 PHONE    L                 $(E2)AA[ea]CT[eacN]|5                                       
 contact.lar                  1 YN       L                 $(E2)AA[ea]CT[eacN]|8                                       
 contact.pager                8 FREE     L                 $(E2)AA[ea]CT[eacN]|10                                      
 contact.relation            10 FREE     L  MIS.RELAT      $(E2)AA[ea]CT[eacN]|7                                   
 contact.state                2 FREE     L                 $(E2)AA[ea]CT[eacN]|3                                       
 contact.street              30 FREE     L                 $(E2)AA[ea]CT[eacN]|1                                       
 contact.work.phone          18 PHONE    L                 $(E2)AA[ea]CT[eacN]|6                                       
 contact.zip                 10 ZIP.POST L                 $(E2)AA[ea]CT[eacN]|4                                       
 Ì   €   i   2
customer.defined.queries
[medical.record,  cd.query]
$(E2)AA[ea]CD[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cd.query                    10 FREE     L  MIS.QUERY      ggv                                                     
 cd.response                 75 QRY.RESP L                 $(E2)AA[ea]CD[ggv]|0                                        
 cd.yn.comment               70 QRY.RESP L                 $(E2)AA[ea]CD[ggv]|5                                        
 Ì   €   i   2
cust.def.query.mult
[medical.record,cd.query,  cd.query.mult.q]
$(E2)AA[ea]CD[ggv]M[ggvMQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cd.query.mult.q              2 PINT     R                 ggvMQ                                                       
 cd.query.mult.response      30 QRY.RESP L                 $(E2)AA[ea]CD[ggv]M[ggvMQ]|0                                
 Ì   €   i   2
duty.contacts
[medical.record,  duty.contact.name]
$(E2)AA[ea]DTC[dcN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 duty.contact.name           30 NAME     L                 dcN                                                         
 duty.contact.act             1 YN       L                 $(E2)AA[ea]DTC[dcN]|0                                       
 duty.contact.bpr            18 PHONE    L                 $(E2)AA[ea]DTC[dcN]|7                                       
 duty.contact.cty            30 FREE     L                 $(E2)AA[ea]DTC[dcN]|2                                       
 duty.contact.eecom           1 YN       L                 $(E2)AA[ea]DTC[dcN]|15                                      
 duty.contact.email          40 FREE     L                 $(E2)AA[ea]DTC[dcN]|9                                       
 duty.contact.fax            18 PHONE    L                 $(E2)AA[ea]DTC[dcN]|8                                       
 duty.contact.hp             18 PHONE    L                 $(E2)AA[ea]DTC[dcN]|5                                       
 duty.contact.rel            10 FREE     L  MIS.RELAT      $(E2)AA[ea]DTC[dcN]|10                                  
 duty.contact.st             30 FREE     L                 $(E2)AA[ea]DTC[dcN]|1                                       
 duty.contact.stat            2 FREE     L                 $(E2)AA[ea]DTC[dcN]|3                                       
 duty.contact.wp             18 PHONE    L                 $(E2)AA[ea]DTC[dcN]|6                                       
 duty.contact.zip            10 ZIP.POST L                 $(E2)AA[ea]DTC[dcN]|4                                       
 Ì   €   i   2
emp.info.data
[medical.record,  eid.seq.no]
$(E2)AA[ea]EI[aaEN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 eid.seq.no                   1 PINT     R                 aaEN                                                        
 eid                         10 FREE     L  MIS.EID        $(E2)AA[ea]EI[aaEN]|0                                   
 eid.employee.id             11 FREE     L                 $(E2)AA[ea]EI[aaEN]|4                                       
 eid.employer.loc            30 FREE     L                 $(E2)AA[ea]EI[aaEN]|3                                       
 eid.employer.name           10 FREE     L  MIS.EMPLR      $(E2)AA[ea]EI[aaEN]|2                                   
 eid.status                  10 FREE     L  MIS.EMP.STATUS $(E2)AA[ea]EI[aaEN]|1                                   
 Ì   €   i   2
environmental.factors
[medical.record,  environment.factor]
$(E2)AA[ea]EF[ghef]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 environment.factor          10 FREE     L  MIS.HHEF       ghef                                                    
 Ì   €   i   2
families
[medical.record,  family.name]
$(E2)AA[ea]FA[eacF]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 family.name                 30 NAME     L                 eacF                                                        
 family.active                1 YN       L                 $(E2)AA[ea]FA[eacF]|0                                       
 family.city                 30 FREE     L                 $(E2)AA[ea]FA[eacF]|2                                       
 family.email                40 FREE     L                 $(E2)AA[ea]FA[eacF]|9                                       
 family.fax                  24 FREE     L                 $(E2)AA[ea]FA[eacF]|10                                      
 family.homephone            18 PHONE    L                 $(E2)AA[ea]FA[eacF]|5                                       
 family.pager                 8 FREE     L                 $(E2)AA[ea]FA[eacF]|8                                       
 family.relation             10 FREE     L  MIS.RELAT      $(E2)AA[ea]FA[eacF]|7                                   
 family.state                 2 FREE     L                 $(E2)AA[ea]FA[eacF]|3                                       
 family.street               30 FREE     L                 $(E2)AA[ea]FA[eacF]|1                                       
 family.workphone            18 PHONE    L                 $(E2)AA[ea]FA[eacF]|6                                       
 family.zip                  10 ZIP.POST L                 $(E2)AA[ea]FA[eacF]|4                                       
 Ì   €   i   2
forensic.charges
[medical.record,  forensic.charge]
$(E2)AA[ea]FC[gch]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 forensic.charge             10 FREE     L  MIS.CHARGES    gch                                                     
 Ì   €   i   2
forensic.comments
[medical.record,  forensic.comment.line]
$(E2)AA[ea]FCOM[ftxt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 forensic.comment.line        5 PINT     R                 ftxt                                                        
 forensic.comment.text       90 TEXT     L                 $(E2)AA[ea]FCOM[ftxt]                                       
 forensic.comments.exist      0 YN       L                 VAL=@Color.use(@Z.color.labels)_IF{+@t.forensic.commen      
                                                           VAL=t.text[urn,""] "*";""}_@Color.use(@Z.color.data)        
 Ì   €   i   2
forensic.restrict
[medical.record,  for.restrict.line]
$(E2)AA[ea]FRE[ftxt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 for.restrict.line            5 PINT     R                 ftxt                                                        
 for.restrict.text           90 TEXT     L                 $(E2)AA[ea]FRE[ftxt]                                        
 Ì   €   i   2
guard.contacts
[medical.record,  guard.contact.name]
$(E2)AA[ea]GC[gcN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 guard.contact.name          30 NAME     L                 gcN                                                         
 guard.contact.act            1 YN       L                 $(E2)AA[ea]GC[gcN]|0                                        
 guard.contact.bpr           18 PHONE    L                 $(E2)AA[ea]GC[gcN]|8                                        
 guard.contact.cty           30 FREE     L                 $(E2)AA[ea]GC[gcN]|3                                        
 guard.contact.email         40 FREE     L                 $(E2)AA[ea]GC[gcN]|10                                       
 guard.contact.fax           24 FREE     L                 $(E2)AA[ea]GC[gcN]|9                                        
 guard.contact.hp            18 PHONE    L                 $(E2)AA[ea]GC[gcN]|6                                        
 guard.contact.st            30 FREE     L                 $(E2)AA[ea]GC[gcN]|2                                        
 guard.contact.stat           2 FREE     L                 $(E2)AA[ea]GC[gcN]|4                                        
 guard.contact.type          10 FREE     L  MIS.CONTACT.TYP$(E2)AA[ea]GC[gcN]|1                                    
 guard.contact.wp            18 PHONE    L                 $(E2)AA[ea]GC[gcN]|7                                        
 guard.contact.zip           10 ZIP.POST L                 $(E2)AA[ea]GC[gcN]|5                                        
 Ì   €   i   2
guardian.types
[medical.record,  guardian.type]
$(E2)AA[ea]GT[gdt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 guardian.type               10 FREE     L  MIS.GUARD.TYPE gdt                                                     
 guardian.app.m.t             1 YN       L                 $(E2)AA[ea]GT[gdt]|6                                        
 guardian.duration           10 FREE     L  MIS.GUARD.DUR  $(E2)AA[ea]GT[gdt]|3                                    
 guardian.exp.date            8 DATE     L                 $(E2)AA[ea]GT[gdt]|5                                        
 guardian.gran.date           8 DATE     L                 $(E2)AA[ea]GT[gdt]|2                                        
 guardian.rev.date            8 DATE     L                 $(E2)AA[ea]GT[gdt]|4                                        
 guardian.status             10 FREE     L  MIS.GUARD.STAT $(E2)AA[ea]GT[gdt]|0                                    
 guardian.sub.date            8 DATE     L                 $(E2)AA[ea]GT[gdt]|1                                        
 Ì   €   i   2
guardian.med.treat
[medical.record,guardian.type,  meds.treat.type]
$(E2)AA[ea]GT[gdt]MED[gcr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 meds.treat.type             10 FREE     L  MIS.COURT.ORDERgcr                                                     
 ee.app.meds.treat            1 YN       L                 $(E2)AA[ea]GT[gdt]MED[gcr]|2                                
 meds.treat.exp.dt            8 DATE     L                 $(E2)AA[ea]GT[gdt]MED[gcr]|1                                
 meds.treat.rev.dt            8 DATE     L                 $(E2)AA[ea]GT[gdt]MED[gcr]|0                                
 Ì   €   i   2
guard.med.treat.text
[medical.record,guardian.type,meds.treat.type,  meds.treat.line]
$(E2)AA[ea]GT[gdt]MED[gcr]TXT[mtTXT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 meds.treat.line              5 PINT     R                 mtTXT                                                       
 meds.treat.text             90 TEXT     L                 $(E2)AA[ea]GT[gdt]MED[gcr]TXT[mtTXT]                        
 meds.treat.txt.exist         0 YN       L                 VAL=@Color.use(@Z.color.labels)_IF{+@t.meds.treat.text      
                                                           VAL=[urn,""] "*";""}_@Color.use(@Z.color.data)              
 Ì   €   i   2
insurances
[medical.record,  insurance]
$(E2)AA[ea]I[ggm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 insurance                   10 FREE     L  MIS.INS        ggm                                                     
 ins.emp.loc                 30 FREE     L                 $(E2)AA[ea]I[ggm]E|2                                        
 ins.emp.name                10 FREE     L  MIS.EMPLR      $(E2)AA[ea]I[ggm]E|1                                    
 ins.emp.status              10 FREE     L  MIS.EMP.STATUS $(E2)AA[ea]I[ggm]E|0                                    
 ins.print.queries            8 FREE     L                 VAL=%MRI.DRC.print.ins.screen(medical.record,insurance      
                                                           VAL=,"",0,1)                                                
 insurance.benefit.plan      20 FREE     L                 $(E2)AA[ea]I[ggm]N|9                                        
 insurance.city              30 FREE     L                 $(E2)AA[ea]I[ggm]|1                                         
 insurance.cov.no            20 FREE     L                 $(E2)AA[ea]I[ggm]N|7                                        
 insurance.eff.date           8 DATE     L                 $(E2)AA[ea]I[ggm]N|5                                        
 insurance.exp.date           8 DATE     L                 $(E2)AA[ea]I[ggm]N|6                                        
 insurance.other.name        30 FREE     L                 $(E2)AA[ea]I[ggm]|5                                         
 insurance.phone             30 FREE     L                 $(E2)AA[ea]I[ggm]|4                                         
 insurance.state              2 FREE     L                 $(E2)AA[ea]I[ggm]|2                                         
 insurance.street            30 FREE     L                 $(E2)AA[ea]I[ggm]|0                                         
 insurance.street2           30 FREE     L                 $(E2)AA[ea]I[ggm]|6                                         
 insurance.zip               10 ZIP.POST L                 $(E2)AA[ea]I[ggm]|3                                         
 insured.group.name          30 FREE     L                 $(E2)AA[ea]I[ggm]N|4                                        
 insured.group.number        15 FREE     L                 $(E2)AA[ea]I[ggm]N|3                                        
 insured.name                30 NAME     L                 $(E2)AA[ea]I[ggm]N|0                                        
 insured.name.out            30 NAME     L                 VAL=IF{@insured.subscriber^SUB @MRI.SUBSCRIBER.subs.na      
                                                           VAL=me[SUB];@insured.name}                                  
 insured.policy.number       30 FREE     L                 $(E2)AA[ea]I[ggm]N|2                                        
 insured.relationship        10 FREE     L  MIS.RELAT      $(E2)AA[ea]I[ggm]N|1                                    
 insured.subscriber          35 URN      L  MRI.SUBSCRIBER $(E2)AA[ea]I[ggm]N|10                                   
 Ì   €   i   2
ins.cd.queries
[medical.record,insurance,  ins.cd.query]
$(E2)AA[ea]I[ggm]CD[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ins.cd.query                10 FREE     L  MIS.QUERY      ggv                                                     
 ins.cd.response             75 QRY.RESP L                 $(E2)AA[ea]I[ggm]CD[ggv]|0                                  
 ins.cd.yn.comment           70 QRY.RESP L                 $(E2)AA[ea]I[ggm]CD[ggv]|5                                  
 Ì   €   i   2
ins.cd.queries.mult
[medical.record,insurance,ins.cd.query,  ins.cd.query.q]
$(E2)AA[ea]I[ggm]CD[ggv]M[ggvIQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ins.cd.query.q               2 PINT     R                 ggvIQ                                                       
 ins.cd.query.resp.mult      75 QRY.RESP L                 $(E2)AA[ea]I[ggm]CD[ggv]M[ggvIQ]|0                          
 Ì   €   i   2
ins.queries
[medical.record,insurance,  query.seq.no]
$(E2)AA[ea]I[ggm]Q[ggmQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 query.seq.no                 2 PINT     R                 ggmQ                                                        
 ins.query                   60 FREE     L                 VAL=@MIS.QUERY.text[@ADM.PAT.ins.query.mnemonic]            
 ins.query.and.answer        79 FREE     L                 VAL=(@ins.query_" "_@ins.query.answer)                      
 ins.query.answer            35 QRY.RESP L                 $(E2)AA[ea]I[ggm]Q[ggmQ]|1                                  
 ins.query.color.screen      60 FREE     L                 VAL=@Color.use(@Z.color.labels)_(@ins.query:60L)_@Colo      
                                                           VAL=r.use(@Z.color.data)                                    
 ins.query.count              2 INT      R                 VAL=(-@ADM.PAT.ins.queries[ADM.PAT.urn,insurance,""]+0      
                                                           VAL=)                                                       
 ins.query.mnemonic          10 FREE     L  MIS.QUERY      $(E2)AA[ea]I[ggm]Q[ggmQ]|0                              
 ins.query.screen            60 FREE     L                 VAL=IF{@ins.query @Z.start.background_@Z.normal.backgr      
                                                           VAL=ound.half_@ins.query_@Z.start.foreground_@Z.normal      
                                                           VAL=.foreground.full}                                       
 Ì   €   i   2
insure.order
[medical.record,  facility,ins.seq.no]
$(E2)AA[ea]O[gqb,aaIN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 facility                    10 FREE     L  MIS.FACILITY   gqb                                                     
 ins.seq.no                   1 PINT     R                 aaIN                                                        
 insurance.mnemonic          10 FREE     L  MIS.INS        $(E2)AA[ea]O[gqb,aaIN]|0                                
 insurance.no.and.mne        13 FREE     L                 VAL=(ins.seq.no_"  "_insurance.mnemonic)                    
 Ì   €   i   2
insure.order.old
[medical.record,  old.ins.seq.no]
$(E2)AA[ea]IO[aaIN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 old.ins.seq.no               1 PINT     R                 aaIN                                                        
 old.insurance.mnemonic      10 FREE     L  MIS.INS        $(E2)AA[ea]IO[aaIN]|0                                   
 Ì   €   i   2
oth.agency.contacts
[medical.record,  oth.agency.contact.refer]
$(E2)AA[ea]OAC[grs]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 oth.agency.contact.refer    10 FREE     L  MIS.REF.SOURCE grs                                                     
 oth.agency.contact.active    1 YN       L                 $(E2)AA[ea]OAC[grs]|0                                       
 oth.agency.contact.beeper   18 PHONE    L                 $(E2)AA[ea]OAC[grs]|9                                       
 oth.agency.contact.city     30 FREE     L                 $(E2)AA[ea]OAC[grs]|4                                       
 oth.agency.contact.cmt      50 FREE     L                 $(E2)AA[ea]OAC[grs]|12                                      
 oth.agency.contact.email    40 FREE     L                 $(E2)AA[ea]OAC[grs]|11                                      
 oth.agency.contact.fax      18 PHONE    L                 $(E2)AA[ea]OAC[grs]|10                                      
 oth.agency.contact.name     30 NAME     L                 $(E2)AA[ea]OAC[grs]|1                                       
 oth.agency.contact.phone    18 PHONE    L                 $(E2)AA[ea]OAC[grs]|7                                       
 oth.agency.contact.state     2 FREE     L                 $(E2)AA[ea]OAC[grs]|5                                       
 oth.agency.contact.street   30 FREE     L                 $(E2)AA[ea]OAC[grs]|3                                       
 oth.agency.contact.title    30 FREE     L                 $(E2)AA[ea]OAC[grs]|2                                       
 oth.agency.contact.wphone   18 PHONE    L                 $(E2)AA[ea]OAC[grs]|8                                       
 oth.agency.contact.zip      12 ZIP.POST L                 $(E2)AA[ea]OAC[grs]|6                                       
 Ì   €   i   2
other.agencies
[medical.record,  other.agency]
$(E2)AA[ea]OA[goa]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 other.agency                10 FREE     L  MIS.OTH.AGENCY goa                                                     
 Ì   €   i   2
phys.handicaps
[medical.record,  phys.handicap]
$(E2)AA[ea]PH[gph]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 phys.handicap               10 FREE     L  MIS.PHYS.HAND  gph                                                     
 Ì   €   i   2
probation.comments
[medical.record,  probation.comment.line]
$(E2)AA[ea]PCOM[pint]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 probation.comment.line       5 PINT     R                 pint                                                        
 probation.comment.exist      0 YN       L                 VAL=@Color.use(@Z.color.labels)_IF{+@t.probation.comme      
                                                           VAL=nt.text[urn,""] "*";""}_@Color.use(@Z.color.data)       
 probation.comment.text      90 TEXT     L                 $(E2)AA[ea]PCOM[pint]                                       
 Ì   €   i   2
restraining.order
[medical.record,  restrain.line]
$(E2)AA[ea]RO[int]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 restrain.line                5 PINT     R                 int                                                         
 restrain.text               90 TEXT     L                 $(E2)AA[ea]RO[int]                                          
 restrain.txt.exist           0 YN       L                 VAL=@Color.use(@Z.color.labels)_IF{+@t.restrain.text[u      
                                                           VAL=rn,""] "*";""}_@Color.use(@Z.color.data)                
 Ì     i   2
nsc.data
[nsc.patient]
*(E2)AA.NSC[ea]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 nsc.patient                 25 URN      L  MRI.PAT        ea                                                      
 nsc.allergy1                60 FREE     L                 *(E2)AA.NSC[ea]|0                                           
 nsc.allergy2                60 FREE     L                 *(E2)AA.NSC[ea]|1                                           
 Ì     i   2
sch.appts
[sch.patient,sch.database,sch.date,sch.time,sch.fac,sch.appt]
*(E2)AA.WZM[ea,gn,wzD,wzT,gqb,wz]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 sch.patient                 25 URN      L  MRI.PAT        ea                                                      
 sch.database                12 FREE     L  MIS.APPL.DB    gn                                                      
 sch.date                     8 DATE     L                 wzD                                                         
 sch.time                     4 HHMM5    L                 wzT                                                         
 sch.fac                     10 FREE     L  MIS.FACILITY   gqb                                                     
 sch.appt                    10 FREE     L  SCH.APPT       wz                                                      
 sch.appt.typ                10 FREE     L  SCH.APPT.TYPE  *(E2)AA.WZM[ea,gn,wzD,wzT,gqb,wz]|0                     
 sch.duration                 4 PINT     R                 *(E2)AA.WZM[ea,gn,wzD,wzT,gqb,wz]|1                         
 Ì     i   2
web.activity.queue
[waq.date,waq.mri.urn,waq.form.urn]
*(E2)EAWBQ[wbqDT,ea,wbfr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 waq.date                     8 DATE     L                 wbqDT                                                       
 waq.mri.urn                 25 URN      L  MRI.PAT        ea                                                      
 waq.form.urn                10 URN      L                 wbfr                                                        
 waq.time                     4 HHMM     L                 *(E2)EAWBQ[wbqDT,ea,wbfr]|0                                 
 Ì     i   2
web.form.req
[wf.urn]
*(E2)EA.WBFR[wbfr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 wf.urn                      10 URN      L                 wbfr                                                        
 wf.guar.city                20 FREE     L                 *(E2)EA.WBFR[wbfr]G|4                                       
 wf.guar.email               40 FREE     L                 *(E2)EA.WBFR[wbfr]G|9                                       
 wf.guar.email.use            1 YN       L                 *(E2)EA.WBFR[wbfr]G|10                                      
 wf.guar.home.phone          18 PHONE    L                 *(E2)EA.WBFR[wbfr]G|7                                       
 wf.guar.name                30 FREE     L                 *(E2)EA.WBFR[wbfr]G|0                                       
 wf.guar.pt.relationship     20 FREE     L                 *(E2)EA.WBFR[wbfr]G|1                                       
 wf.guar.soc.sec.number      12 FREE     L                 *(E2)EA.WBFR[wbfr]G|8                                       
 wf.guar.state                2 FREE     L                 *(E2)EA.WBFR[wbfr]G|5                                       
 wf.guar.street              30 FREE     L                 *(E2)EA.WBFR[wbfr]G|2                                       
 wf.guar.street2             30 FREE     L                 *(E2)EA.WBFR[wbfr]G|3                                       
 wf.guar.zip                 10 ZIP.POST L                 *(E2)EA.WBFR[wbfr]G|6                                       
 wf.mri.urn                  25 URN      L  MRI.PAT        *(E2)EA.WBFR[wbfr]|0                                    
 wf.nok.city                 20 FREE     L                 *(E2)EA.WBFR[wbfr]NK|3                                      
 wf.nok.home.phone           18 PHONE    L                 *(E2)EA.WBFR[wbfr]NK|6                                      
 wf.nok.name                 30 FREE     L                 *(E2)EA.WBFR[wbfr]NK|0                                      
 wf.nok.relationship         20 FREE     L                 *(E2)EA.WBFR[wbfr]NK|8                                      
 wf.nok.state                 2 FREE     L                 *(E2)EA.WBFR[wbfr]NK|4                                      
 wf.nok.street               30 FREE     L                 *(E2)EA.WBFR[wbfr]NK|1                                      
 wf.nok.street2              30 FREE     L                 *(E2)EA.WBFR[wbfr]NK|2                                      
 wf.nok.work.phone           18 PHONE    L                 *(E2)EA.WBFR[wbfr]NK|7                                      
 wf.nok.zip                  10 ZIP.POST L                 *(E2)EA.WBFR[wbfr]NK|5                                      
 wf.notify.city              20 FREE     L                 *(E2)EA.WBFR[wbfr]PN|3                                      
 wf.notify.home.phone        18 PHONE    L                 *(E2)EA.WBFR[wbfr]PN|6                                      
 wf.notify.name              30 FREE     L                 *(E2)EA.WBFR[wbfr]PN|0                                      
 wf.notify.relationship      20 FREE     L                 *(E2)EA.WBFR[wbfr]PN|8                                      
 wf.notify.state              2 FREE     L                 *(E2)EA.WBFR[wbfr]PN|4                                      
 wf.notify.street            30 FREE     L                 *(E2)EA.WBFR[wbfr]PN|1                                      
 wf.notify.street2           30 FREE     L                 *(E2)EA.WBFR[wbfr]PN|2                                      
 wf.notify.work.phone        18 PHONE    L                 *(E2)EA.WBFR[wbfr]PN|7                                      
 wf.notify.zip               10 ZIP.POST L                 *(E2)EA.WBFR[wbfr]PN|5                                      
 wf.pt.city                  20 FREE     L                 *(E2)EA.WBFR[wbfr]AD|2                                      
 wf.pt.email                 40 FREE     L                 *(E2)EA.WBFR[wbfr]AD|6                                      
 wf.pt.email.use              1 YN       L                 *(E2)EA.WBFR[wbfr]AD|7                                      
 wf.pt.home.phone            18 PHONE    L                 *(E2)EA.WBFR[wbfr]AD|5                                      
 wf.pt.other.phone           18 PHONE    L                 *(E2)EA.WBFR[wbfr]AD|8                                      
 wf.pt.state                  2 FREE     L                 *(E2)EA.WBFR[wbfr]AD|3                                      
 wf.pt.street                30 FREE     L                 *(E2)EA.WBFR[wbfr]AD|0                                      
 wf.pt.street2               30 FREE     L                 *(E2)EA.WBFR[wbfr]AD|1                                      
 wf.pt.zip                   10 ZIP.POST L                 *(E2)EA.WBFR[wbfr]AD|4                                      
 wf.status                   10 CHOICE   L                 *(E2)EA.WBFR[wbfr]|2                                        
 wf.status.reason            80 FREE     L                 *(E2)EA.WBFR[wbfr]|5                                        
 wf.status.time              10 PINT     R                 *(E2)EA.WBFR[wbfr]|4                                        
 wf.status.user              10 FREE     L  MIS.USER       *(E2)EA.WBFR[wbfr]|3                                    
 wf.submit.secs              10 PINT     R                 *(E2)EA.WBFR[wbfr]|1                                        
 wf.submitter.day.phone      18 PHONE    L                 *(E2)EA.WBFR[wbfr]S|0                                       
 wf.submitter.email          40 FREE     L                 *(E2)EA.WBFR[wbfr]S|2                                       
 wf.submitter.eve.phone      18 PHONE    L                 *(E2)EA.WBFR[wbfr]S|1                                       
 Ì   €   i   2
web.form.req.ins.data
[wf.urn,  wf.ins.seq.no]
*(E2)EA.WBFR[wbfr]IN[wbfIN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 wf.ins.seq.no                1 PINT     R                 wbfIN                                                       
 wf.ins.addr                 30 FREE     L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]I2|0                             
 wf.ins.addr2                30 FREE     L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]I2|1                             
 wf.ins.city                 20 FREE     L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]I2|2                             
 wf.ins.cov.no               20 FREE     L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]|7                               
 wf.ins.eff.date             10 FREE     L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]|5                               
 wf.ins.exp.date             10 FREE     L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]|6                               
 wf.ins.flag                  3 CHOICE   L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]|8                               
 wf.ins.mnemonic             10 FREE     L  MIS.INS        *(E2)EA.WBFR[wbfr]IN[wbfIN]|2                           
 wf.ins.name                 30 FREE     L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]|0                               
 wf.ins.phone                18 PHONE    L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]I2|5                             
 wf.ins.state                 2 FREE     L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]I2|3                             
 wf.ins.zip                   9 ZIP.POST L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]I2|4                             
 wf.insured.name             30 FREE     L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]|3                               
 wf.insured.policy.number    30 FREE     L                 *(E2)EA.WBFR[wbfr]IN[wbfIN]|1                               
 wf.insured.relationship     10 FREE     L  MIS.RELAT      *(E2)EA.WBFR[wbfr]IN[wbfIN]|4                           
 Ì   €   i   2
web.form.req.other.data
[wf.urn,  wf.other.txt.q]
*(E2)EA.WBFR[wbfr]OT[wbfOQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 wf.other.txt.q               3 URN      L                 wbfOQ                                                       
 wf.other.txt                49 TEXT     L                 *(E2)EA.WBFR[wbfr]OT[wbfOQ]                                 

 Index Files                        Subscripts/Physical Base

 guar.ss.index                      [guar.soc.sec.number,urn]
                                      *(E2)EDGI[aGSS,ea]

 hub.queue.ok                       [time,hub.id]
                                      *(E2)DRQ.OK[hbdrt,ha]

 site.x                             [site,urn]
                                      ?(E)EASX[gst,ea]

 web.form.status.x                  [wf.status,wf.mri.urn,wf.urn]
                                      ?(E)EAWBS[wbfrS,ea,wbfr]